home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_x86 / ireqform.pl < prev    next >
Perl Script  |  1995-11-22  |  6KB  |  185 lines
  1. #!/tmp/httpd/.cgi-bin/perl
  2.  
  3. #################################################
  4. # Sends information request to appropriate place
  5. #################################################
  6. #RogueWave
  7.  
  8. unshift(@INC, "http://cgi-bin");
  9. require "cgi-lib";
  10. local(%cgi_params);
  11. &ReadParse(*cgi_params);
  12.  
  13. $fname = $cgi_params{"FNAME"};
  14. $lname = $cgi_params{"LNAME"};
  15. $title = $cgi_params{"TITLE"};
  16. $company = $cgi_params{"COMPANY"};
  17. $address1 = $cgi_params{"ADDRESS1"};
  18. $address2 = $cgi_params{"ADDRESS2"};
  19. $city = $cgi_params{"CITY"};
  20. $province = $cgi_params{"PROVINCE"};
  21. $country = $cgi_params{"COUNTRY"};
  22. $pcode = $cgi_params{"PCODE"};
  23. $telephone = $cgi_params{"TELEPHONE"};
  24. $fax = $cgi_params{"FAX"};
  25. $email = $cgi_params{"EMAIL"};
  26. $tools = $cgi_params{"TOOLS"};
  27. $heap = $cgi_params{"HEAP"};
  28. $booch = $cgi_params{"BOOCH"};
  29. $dbtools = $cgi_params{"DBTOOLS"};
  30. $math = $cgi_params{"MATH"};
  31. $money = $cgi_params{"MONEY"};
  32. $view = $cgi_params{"VIEW"};
  33. $canvas = $cgi_params{"CANVAS"};
  34. $chart = $cgi_params{"CHART"};
  35. $net = $cgi_params{"NET"};
  36. $support = $cgi_params{"SUPPORT"};
  37. $training = $cgi_params{"TRAINING"};
  38. $consulting = $cgi_params{"CONSULTING"};
  39. $windows = $cgi_params{"WINDOWS"};
  40. $windowsnt = $cgi_params{"WINDOWSNT"};
  41. $macintosh = $cgi_params{"MACINTOSH"};
  42. $unix = $cgi_params{"UNIX"};
  43. $whichunix = $cgi_params{"WHICHUNIX"};
  44. $msvisual = $cgi_params{"MSVISUAL"};
  45. $borland = $cgi_params{"BORLAND"};
  46. $othercompiler = $cgi_params{"OTHERCOMPILER"};
  47. $whichcompiler = $cgi_params{"WHICHCOMPILER"};
  48. $database = $cgi_params{"DATABASE"};
  49. $developers = $cgi_params{"DEVELOPERS"};
  50. $programmer = $cgi_params{"PROGRAMMER"};
  51. $teamleader = $cgi_params{"TEAMLEADER"};
  52. $devmanager = $cgi_params{"DEVMANAGER"};
  53. $othermanager = $cgi_params{"OTHERMANAGER"};
  54. $specifymanager = $cgi_params{"SPECIFYMANAGER"};
  55. $deveffort = $cgi_params{"DEVEFFORT"};
  56.  
  57.     &html_header("Information request confirmation");
  58.     print "<A HREF=\"http://www.roguewave.com/cgi-bin/htimage/www/docs/images/rwpav.map\">";
  59.     print "<IMG SRC=\"http://www.roguewave.com/images/xRWPAV.gif\" ALIGN=\"middle\" ALT=\"RWPAVILION\" ISMAP></A>";
  60.     print "<H1>Information Request Confirmation</H1>\n";
  61.     print "<p>Your request for information has been sent to ";
  62.     print "the appropriate person. We will respond to your ";
  63.     print "request as soon as possible.</p>";
  64.     print "<h3>Thank you for your interest in Rogue Wave.</h3>";
  65.     print "<hr><pre><a href=\"http://www.roguewave.com/index.htm\">Home page</a>   ";
  66.     print "<a href=\"http://www.roguewave.com/rwpav/products/products.htm\">Product information</a>   ";
  67.     print "<a href=\"http://www.roguewave.com/access.htm\">Access guide</a></pre>";
  68.     &html_trailer;
  69.  
  70. #    &html_header("Information request feedback");
  71. #    print "<p>You entered the following personal information:";
  72. #    print "<pre>   Name:       ", $name, "\n";
  73. #    print "   Title:      ", $title, "\n";
  74. #    print "   Company:    ", $company, "\n";
  75. #    print "   Address:    ", $address1, "\n";
  76. #    print "               ", $address2, "\n";
  77. #    print "   Telephone:  ", $telephone, "\n";
  78. #    print "   Fax:        ", $fax, "\n";
  79. #    print "   Email:      ", $email, "</pre>";
  80. #    print "<p>You made the following information requests:</p>";
  81. #    print "<pre>   Tools.h++:              ", $tools, "\n";
  82. #    print "   Heap.h++:               ", $heap, "\n";
  83. #    print "   Booch Components:       ", $booch, "\n";
  84. #    print "   DBtools.h++:            ", $dbtools, "\n";
  85. #    print "   Math.h++/LAPACK.h++:    ", $math, "\n";
  86. #    print "   Money.h++:              ", $money, "\n";
  87. #    print "   View.h++:               ", $view, "\n";
  88. #    print "   Canvas.h++:             ", $canvas, "\n";
  89. #    print "   Chart.h++:              ", $chart, "\n";
  90. #    print "   Net.h++:                ", $net, "\n\n";
  91. #    print "   Support contracts:      ", $support, "\n";
  92. #    print "   Training information:   ", $training, "\n";
  93. #    print "   Consulting information: ", $consulting, "</pre>";
  94. #    print "<p>You expressed the following statement of needs:</p>";
  95. #    print "<p>", $needs, "</p>";
  96. #    print "<h3>Thank you for your interest in Rogue Wave.</h3>";
  97. #    print "<hr><pre><a href=\"http://cold:8001/~betz/www/index.htm\">Home page</a>   ";
  98. #    print "<a href=\"http://cold:8001/~betz/www/rwpav/products/products.htm\">Product #    #    information</a></pre>";
  99. #    &html_trailer;
  100.  
  101.  
  102. open(SENDMAIL, "|mail sales\@roguewave.com");
  103. print SENDMAIL <<"eom";
  104. Subject: Lead from Web
  105.  
  106. This message is from: 
  107.     $fname $lname
  108.     $title
  109.     $company
  110.     $address1
  111.     $address2
  112.     $city $province
  113.     $country $pcode
  114.     $telephone
  115.     $fax
  116.     $email
  117.  
  118. They have expressed interest in the following products and services:
  119.  
  120.     On products:
  121.         Tools.h++: $tools
  122.         Heap.h++: $heap
  123.         Booch Components: $booch
  124.         DBtools.h++: $dbtools
  125.         Math.h++/LAPACK.h++: $math
  126.         Money.h++: $money
  127.         View.h++: $view
  128.         Canvas.h++: $canvas
  129.         Chart.h++: $chart
  130.         Net.h++: $net
  131.  
  132.     On services:
  133.         Support: $support
  134.         Training: $training
  135.         Consulting: $consulting
  136.  
  137. They have provided the following project information:
  138.  
  139.     Platforms
  140.         Windows:  $windows
  141.         WindowsNT:  $windowsnt
  142.         Macintosh:  $macintosh
  143.         Unix --- version =  $whichunix
  144.  
  145.     Compilers
  146.         MS Visual C++:  $msvisual
  147.         Borland C++:  $borland
  148.         Other compiler:  $whichcompiler
  149.  
  150.     Databases:  $database
  151.  
  152.     Developers at site:  $developers
  153.  
  154.     Their position
  155.         Programmer:  $programmer
  156.         Team leader:  $teamleader
  157.         Development manager:  $devmanager
  158.         Other:  $specifymanager
  159.  
  160. Project Description:
  161.  
  162. $deveffort
  163. eom
  164. close SENDMAIL;
  165.  
  166. system ("/www/cgi-bin/count.ireqform.pl");
  167.  
  168. # Define the beginning of the HTML file.
  169.  
  170. sub html_header {
  171.     $document_title = $_[0];
  172.     print "Content-type: text/html\n\n";
  173.     print "<html><head>\n";
  174.     print "<title>$document_title</title>\n";
  175.     print "</head>\n";
  176.     print "<body>\n";
  177. }
  178.  
  179. # Define the end of the HTML file.
  180.  
  181. sub html_trailer {
  182.     print "</body>";
  183.     print "</html>";
  184. }
  185.